home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / misc / megabook / storage / sendfax / stfaxpro_fax.mbrx next >
Text File  |  1998-12-12  |  1KB  |  61 lines
  1. /*
  2. ** STFax Pro SendFax Script v1.0 by Steve Clack (for MegaBook 4+)
  3. **
  4. ** ©1998 Liquid Software Design
  5. **
  6. ** steeevc@ndirect.co.uk - http://www.ndirect.co.uk/~mattw/steve
  7. ** 
  8. ** Firstly, select the fax in STFax Pro that you wish to send, or create a new
  9. ** fax and leave the edit window open, then go to MegaBook and choose the
  10. ** person you wish to send the fax to. If STFax is not loaded when you run
  11. ** the script, it will load it but then ask you to select the fax as otherwise
  12. */ 
  13.  
  14. /*
  15.    STFax's path is on the next line. This should not need changing.
  16. */
  17.  
  18. STFaxPath = 'STFax:STFax'
  19.  
  20. parse arg Number
  21.  
  22. /* Check if STFax is running, if not then run it. */
  23.  
  24. if ~show('P', 'STFAX.1') then do
  25.    address command
  26.    'Run >nil: ' STFaxPath
  27.    
  28.    /* Wait for the ARexx port to open */
  29.    
  30.    do 5 while ~show('P', 'STFAX.1')
  31.       'Sys:rexxc/waitforport STFAX.1'
  32.    end
  33.    
  34.    address MEGABOOK.01
  35.    
  36.    REQUEST "Select the fax you wish to send (or create a new one) and then click OK." GADS "OK"
  37. end
  38.  
  39. address STFAX.1
  40. options results
  41.  
  42. SHOW
  43. SEND '"'Number'"'
  44. status = rc
  45.  
  46. if status = 15 then do
  47.    address MEGABOOK.01
  48.  
  49.    REQUEST "You need to save the fax before transmission, do you wish to do it now?" GADS "Yes|No"
  50.    
  51.    status = rc
  52.    
  53.    if status = 1 then do
  54.       address STFAX.1
  55.       
  56.       SAVE
  57.       SEND '"'Number'"'
  58.    end
  59. end
  60.  
  61.